Aminet 21

home *** CD-ROM | disk | FTP | other *** search
/ Aminet 21 / Aminet 21 (1997)(GTI - Schatztruhe)[!][Oct 1997].iso / Aminet / comm / cnet / NgL_US.lha / PFiles / UserStatus.rexx < prev
Unknown | 1997-08-15 | 5.1 KB
view JSON data |
view as text |
open on a Mac |
open on a PC

This file was not able to be converted.
This format is not currently supported by dexvert.
Confidence	Program	Detection	Match Type
`100%`	file	data	default
`100%`	TrID	Digital Micrograph Script	default (weak)
`100%`	gt2	Kopftext: '/**************************************************************************'	default (weak)
hex view
+--------+-------------------------+-------------------------+--------+--------+
|00000000| 2f 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |/*******|********|
|00000010| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00000020| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00000030| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00000040| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 5c 0a 20 20 20 |********|***\.   |
|00000050| 20 20 20 20 20 24 56 45 | 52 3a 20 55 73 65 72 53 |     $VE|R: UserS|
|00000060| 74 61 74 75 73 2e 72 65 | 78 78 20 56 65 72 73 69 |tatus.re|xx Versi|
|00000070| 6f 6e 20 31 2e 30 20 62 | 79 20 4e 69 67 65 6c 20 |on 1.0 b|y Nigel |
|00000080| 28 31 34 2d 41 75 67 2d | 39 37 29 00 5c 2a 2a 2a |(14-Aug-|97).\***|
|00000090| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|000000a0| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|000000b0| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|000000c0| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|000000d0| 2a 2a 2a 2a 2a 2a 2a 2f | 0a 0a 2f 2a 20 43 6f 6d |*******/|../* Com|
|000000e0| 70 72 65 73 73 65 64 20 | 77 69 74 68 20 43 6f 6d |pressed |with Com|
|000000f0| 70 72 65 73 73 52 65 78 | 78 20 76 32 2e 31 2c 20 |pressRex|x v2.1, |
|00000100| 28 43 29 20 31 39 39 33 | 2d 39 36 20 52 6f 62 65 |(C) 1993|-96 Robe|
|00000110| 72 74 20 48 6f 66 6d 61 | 6e 6e 20 2a 2f 0a 6f 70 |rt Hofma|nn */.op|
|00000120| 74 69 6f 6e 73 20 72 65 | 73 75 6c 74 73 20 3b 20 |tions re|sults ; |
|00000130| 73 69 67 6e 61 6c 20 6f | 6e 20 53 59 4e 54 41 58 |signal o|n SYNTAX|
|00000140| 20 3b 20 73 69 67 6e 61 | 6c 20 6f 6e 20 45 52 52 | ; signa|l on ERR|
|00000150| 4f 52 20 3b 20 73 69 67 | 6e 61 6c 20 6f 6e 20 49 |OR ; sig|nal on I|
|00000160| 4f 45 52 52 3b 74 72 3d | 74 72 61 6e 73 6d 69 74 |OERR;tr=|transmit|
|00000170| 20 3b 20 73 65 3d 73 65 | 6e 64 73 74 72 69 6e 67 | ; se=se|ndstring|
|00000180| 20 3b 20 67 63 3d 67 65 | 74 63 68 61 72 20 3b 20 | ; gc=ge|tchar ; |
|00000190| 67 75 3d 67 65 74 75 73 | 65 72 20 3b 20 6d 67 3d |gu=getus|er ; mg=|
|000001a0| 6d 61 79 67 65 74 63 68 | 61 72 20 3b 20 62 69 3d |maygetch|ar ; bi=|
|000001b0| 62 62 73 69 64 65 6e 74 | 69 66 79 3b 61 3d 27 72 |bbsident|ify;a='r|
|000001c0| 65 78 78 73 75 70 70 6f | 72 74 2e 6c 69 62 72 61 |exxsuppo|rt.libra|
|000001d0| 72 79 27 3b 69 66 20 7e | 73 68 6f 77 28 27 6c 27 |ry';if ~|show('l'|
|000001e0| 2c 61 29 20 74 68 65 6e | 20 69 66 20 7e 61 64 64 |,a) then| if ~add|
|000001f0| 6c 69 62 28 61 2c 30 2c | 2d 33 30 29 20 74 68 65 |lib(a,0,|-30) the|
|00000200| 6e 20 65 78 69 74 3b 70 | 61 72 73 65 20 61 72 67 |n exit;p|arse arg|
|00000210| 20 63 6f 6d 6d 79 3b 63 | 68 61 6e 67 65 77 68 65 | commy;c|hangewhe|
|00000220| 72 65 20 22 55 73 65 72 | 53 74 61 74 75 73 20 31 |re "User|Status 1|
|00000230| 2e 30 22 20 3b 20 6f 6c | 64 77 68 3d 72 65 73 75 |.0" ; ol|dwh=resu|
|00000240| 6c 74 3b 67 75 20 31 3b | 68 61 6e 64 6c 65 3d 72 |lt;gu 1;|handle=r|
|00000250| 65 73 75 6c 74 3b 67 75 | 20 35 39 3b 6f 72 67 61 |esult;gu| 59;orga|
|00000260| 6e 3d 72 65 73 75 6c 74 | 3b 67 75 20 34 3b 63 69 |n=result|;gu 4;ci|
|00000270| 74 79 3d 72 65 73 75 6c | 74 3b 67 75 20 35 38 3b |ty=resul|t;gu 58;|
|00000280| 62 69 72 74 68 3d 72 65 | 73 75 6c 74 3b 62 69 72 |birth=re|sult;bir|
|00000290| 74 68 3d 6c 65 66 74 28 | 62 69 72 74 68 2c 31 35 |th=left(|birth,15|
|000002a0| 29 3b 62 69 72 74 68 3d | 72 69 67 68 74 28 62 69 |);birth=|right(bi|
|000002b0| 72 74 68 2c 31 31 29 3b | 67 75 20 31 35 30 30 34 |rth,11);|gu 15004|
|000002c0| 31 36 3b 66 69 72 6f 6e | 64 3d 72 65 73 75 6c 74 |16;firon|d=result|
|000002d0| 3b 66 69 72 6f 6e 74 3d | 72 69 67 68 74 28 66 69 |;firont=|right(fi|
|000002e0| 72 6f 6e 64 2c 36 29 3b | 66 69 72 6f 6e 64 3d 6c |rond,6);|firond=l|
|000002f0| 65 66 74 28 66 69 72 6f | 6e 64 2c 31 35 29 3b 66 |eft(firo|nd,15);f|
|00000300| 69 72 6f 6e 64 3d 72 69 | 67 68 74 28 66 69 72 6f |irond=ri|ght(firo|
|00000310| 6e 64 2c 31 31 29 3b 66 | 69 72 6f 6e 74 3d 73 74 |nd,11);f|iront=st|
|00000320| 72 69 70 28 66 69 72 6f | 6e 74 29 3b 67 75 20 31 |rip(firo|nt);gu 1|
|00000330| 31 3b 6c 61 73 6f 6e 64 | 3d 72 65 73 75 6c 74 3b |1;lasond|=result;|
|00000340| 6c 61 73 6f 6e 74 3d 72 | 69 67 68 74 28 6c 61 73 |lasont=r|ight(las|
|00000350| 6f 6e 64 2c 36 29 3b 6c | 61 73 6f 6e 64 3d 6c 65 |ond,6);l|asond=le|
|00000360| 66 74 28 6c 61 73 6f 6e | 64 2c 31 35 29 3b 6c 61 |ft(lason|d,15);la|
|00000370| 73 6f 6e 64 3d 72 69 67 | 68 74 28 6c 61 73 6f 6e |sond=rig|ht(lason|
|00000380| 64 2c 31 31 29 3b 6c 61 | 73 6f 6e 74 3d 73 74 72 |d,11);la|sont=str|
|00000390| 69 70 28 6c 61 73 6f 6e | 74 29 3b 67 75 20 31 35 |ip(lason|t);gu 15|
|000003a0| 3b 73 74 61 74 78 3d 72 | 65 73 75 6c 74 3b 73 74 |;statx=r|esult;st|
|000003b0| 61 74 79 3d 73 74 61 74 | 78 2a 31 35 36 3b 72 67 |aty=stat|x*156;rg|
|000003c0| 68 3d 32 33 30 32 30 35 | 38 2b 73 74 61 74 79 3b |h=230205|8+staty;|
|000003d0| 67 75 20 72 67 68 3b 73 | 74 61 74 75 3d 72 65 73 |gu rgh;s|tatu=res|
|000003e0| 75 6c 74 3b 6c 65 76 65 | 6c 3d 73 74 72 69 70 28 |ult;leve|l=strip(|
|000003f0| 73 74 61 74 78 29 3b 67 | 75 20 33 30 3b 6b 62 75 |statx);g|u 30;kbu|
|00000400| 70 3d 72 65 73 75 6c 74 | 3b 67 75 20 33 32 3b 6b |p=result|;gu 32;k|
|00000410| 62 64 77 6e 3d 72 65 73 | 75 6c 74 3b 67 75 20 33 |bdwn=res|ult;gu 3|
|00000420| 31 3b 66 69 75 70 3d 72 | 65 73 75 6c 74 3b 67 75 |1;fiup=r|esult;gu|
|00000430| 20 33 33 3b 66 69 64 77 | 6e 3d 72 65 73 75 6c 74 | 33;fidw|n=result|
|00000440| 3b 67 75 20 32 35 3b 66 | 69 72 61 74 3d 72 65 73 |;gu 25;f|irat=res|
|00000450| 75 6c 74 3b 67 75 20 32 | 36 3b 62 79 72 61 74 3d |ult;gu 2|6;byrat=|
|00000460| 72 65 73 75 6c 74 3b 66 | 69 72 61 74 3d 22 31 3a |result;f|irat="1:|
|00000470| 22 66 69 72 61 74 3b 62 | 79 72 61 74 3d 22 31 3a |"firat;b|yrat="1:|
|00000480| 22 62 79 72 61 74 3b 69 | 66 20 66 69 72 61 74 3d |"byrat;i|f firat=|
|00000490| 22 31 3a 30 22 20 74 68 | 65 6e 20 66 69 72 61 74 |"1:0" th|en firat|
|000004a0| 3d 22 64 49 53 41 42 4c | 45 44 21 22 3b 69 66 20 |="dISABL|ED!";if |
|000004b0| 62 79 72 61 74 3d 22 31 | 3a 30 22 20 74 68 65 6e |byrat="1|:0" then|
|000004c0| 20 62 79 72 61 74 3d 22 | 64 49 53 41 42 4c 45 44 | byrat="|dISABLED|
|000004d0| 21 22 3b 67 75 20 31 34 | 30 30 36 36 34 3b 64 6b |!";gu 14|00664;dk|
|000004e0| 62 6c 3d 72 65 73 75 6c | 74 3b 67 75 20 31 31 30 |bl=resul|t;gu 110|
|000004f0| 30 36 36 33 3b 74 79 3d | 64 32 63 28 72 65 73 75 |0663;ty=|d2c(resu|
|00000500| 6c 74 2b 28 72 65 73 75 | 6c 74 3c 30 29 2a 32 35 |lt+(resu|lt<0)*25|
|00000510| 36 29 0a 79 74 3d 62 69 | 74 74 73 74 28 74 79 2c |6).yt=bi|ttst(ty,|
|00000520| 37 29 3b 69 66 20 79 74 | 3d 31 20 74 68 65 6e 20 |7);if yt|=1 then |
|00000530| 64 6b 62 6c 3d 30 3b 69 | 66 20 64 6b 62 6c 3d 30 |dkbl=0;i|f dkbl=0|
|00000540| 20 74 68 65 6e 20 64 6f | 3b 64 6b 62 6c 3d 22 75 | then do|;dkbl="u|
|00000550| 4e 4c 49 4d 49 54 45 44 | 21 22 3b 65 6e 64 3b 65 |NLIMITED|!";end;e|
|00000560| 6c 73 65 20 64 6f 3b 64 | 6b 62 6c 3d 64 6b 62 6c |lse do;d|kbl=dkbl|
|00000570| 2f 31 30 32 34 3b 64 6b | 62 6c 3d 6c 65 66 74 28 |/1024;dk|bl=left(|
|00000580| 64 6b 62 6c 2c 70 6f 73 | 28 27 2e 27 2c 64 6b 62 |dkbl,pos|('.',dkb|
|00000590| 6c 29 29 3b 74 79 72 3d | 6c 65 6e 67 74 68 28 64 |l));tyr=|length(d|
|000005a0| 6b 62 6c 29 3b 64 6b 62 | 6c 3d 6c 65 66 74 28 64 |kbl);dkb|l=left(d|
|000005b0| 6b 62 6c 2c 74 79 72 2d | 31 29 3b 65 6e 64 3b 67 |kbl,tyr-|1);end;g|
|000005c0| 75 20 31 32 30 30 36 38 | 36 3b 64 66 6c 3d 72 65 |u 120068|6;dfl=re|
|000005d0| 73 75 6c 74 3b 67 75 20 | 31 31 30 30 36 36 33 3b |sult;gu |1100663;|
|000005e0| 64 65 3d 64 32 63 28 72 | 65 73 75 6c 74 2b 28 72 |de=d2c(r|esult+(r|
|000005f0| 65 73 75 6c 74 3c 30 29 | 2a 32 35 36 29 3b 66 65 |esult<0)|*256);fe|
|00000600| 3d 62 69 74 74 73 74 28 | 64 65 2c 36 29 3b 69 66 |=bittst(|de,6);if|
|00000610| 20 66 65 3d 31 20 74 68 | 65 6e 20 64 66 6c 3d 30 | fe=1 th|en dfl=0|
|00000620| 3b 69 66 20 64 66 6c 3d | 30 20 74 68 65 6e 20 64 |;if dfl=|0 then d|
|00000630| 66 6c 3d 22 75 4e 4c 49 | 4d 49 54 45 44 21 22 3b |fl="uNLI|MITED!";|
|00000640| 67 75 20 32 32 3b 63 61 | 6c 6c 73 3d 72 65 73 75 |gu 22;ca|lls=resu|
|00000650| 6c 74 3b 6e 6f 63 62 6d | 3d 30 3b 69 66 20 75 70 |lt;nocbm|=0;if up|
|00000660| 70 65 72 28 63 6f 6d 6d | 79 29 3d 22 4e 4f 43 4f |per(comm|y)="NOCO|
|00000670| 4d 22 20 74 68 65 6e 20 | 6e 6f 63 62 6d 3d 31 3b |M" then |nocbm=1;|
|00000680| 69 66 20 6e 6f 63 62 6d | 3d 30 20 74 68 65 6e 20 |if nocbm|=0 then |
|00000690| 64 6f 3b 67 75 20 31 31 | 30 30 34 36 35 3b 63 74 |do;gu 11|00465;ct|
|000006a0| 79 70 65 3d 72 65 73 75 | 6c 74 3b 63 68 65 3d 22 |ype=resu|lt;che="|
|000006b0| 22 3b 63 61 6c 6c 20 6f | 70 65 6e 28 6d 65 6e 75 |";call o|pen(menu|
|000006c0| 2c 22 63 6e 65 74 3a 62 | 62 73 6d 65 6e 75 22 2c |,"cnet:b|bsmenu",|
|000006d0| 22 52 22 29 3b 64 6f 20 | 75 6e 74 69 6c 20 6c 65 |"R");do |until le|
|000006e0| 66 74 28 63 68 65 2c 31 | 32 29 3d 22 33 30 3b 20 |ft(che,1|2)="30; |
|000006f0| 43 6f 6d 70 75 74 65 72 | 22 3b 63 68 65 3d 73 74 |Computer|";che=st|
|00000700| 72 69 70 28 72 65 61 64 | 6c 6e 28 6d 65 6e 75 29 |rip(read|ln(menu)|
|00000710| 29 3b 65 6e 64 3b 63 74 | 79 70 65 3d 63 74 79 70 |);end;ct|ype=ctyp|
|00000720| 65 2b 31 3b 64 6f 20 75 | 6e 74 69 6c 20 63 74 79 |e+1;do u|ntil cty|
|00000730| 70 65 3d 30 3b 74 79 70 | 65 3d 72 65 61 64 6c 6e |pe=0;typ|e=readln|
|00000740| 28 6d 65 6e 75 29 3b 63 | 74 79 70 65 3d 63 74 79 |(menu);c|type=cty|
|00000750| 70 65 2d 31 3b 65 6e 64 | 3b 63 61 6c 6c 20 63 6c |pe-1;end|;call cl|
|00000760| 6f 73 65 28 6d 65 6e 75 | 29 3b 74 79 70 65 3d 73 |ose(menu|);type=s|
|00000770| 74 72 69 70 28 74 79 70 | 65 29 3b 73 75 74 3d 6c |trip(typ|e);sut=l|
|00000780| 65 6e 67 74 68 28 74 79 | 70 65 29 3b 63 74 79 70 |ength(ty|pe);ctyp|
|00000790| 65 3d 72 69 67 68 74 28 | 74 79 70 65 2c 73 75 74 |e=right(|type,sut|
|000007a0| 2d 31 29 3b 65 6e 64 3b | 65 6c 73 65 20 64 6f 3b |-1);end;|else do;|
|000007b0| 63 74 79 70 65 3d 22 6e | 4f 54 20 61 56 41 49 4c |ctype="n|OT aVAIL|
|000007c0| 41 42 4c 45 21 22 3b 65 | 6e 64 3b 62 69 20 73 79 |ABLE!";e|nd;bi sy|
|000007d0| 73 6f 70 3b 73 79 6f 70 | 3d 72 65 73 75 6c 74 3b |sop;syop|=result;|
|000007e0| 62 69 20 6e 61 6d 65 3b | 62 62 73 6e 61 6d 3d 72 |bi name;|bbsnam=r|
|000007f0| 65 73 75 6c 74 3b 62 69 | 20 62 62 73 3b 76 65 72 |esult;bi| bbs;ver|
|00000800| 73 3d 73 75 62 73 74 72 | 28 72 65 73 75 6c 74 2c |s=substr|(result,|
|00000810| 31 32 2c 28 6c 65 6e 67 | 74 68 28 72 65 73 75 6c |12,(leng|th(resul|
|00000820| 74 29 2d 31 31 29 29 3b | 61 76 61 69 6c 3d 30 3b |t)-11));|avail=0;|
|00000830| 67 75 20 32 33 3b 70 6f | 72 74 3d 72 65 73 75 6c |gu 23;po|rt=resul|
|00000840| 74 3b 73 75 74 3d 32 31 | 32 31 38 36 34 2b 28 70 |t;sut=21|21864+(p|
|00000850| 6f 72 74 2a 32 34 29 3b | 67 75 20 73 75 74 3b 63 |ort*24);|gu sut;c|
|00000860| 68 65 63 3d 72 65 73 75 | 6c 74 3b 69 66 20 62 69 |hec=resu|lt;if bi|
|00000870| 74 74 73 74 28 63 68 65 | 63 2c 30 29 20 74 68 65 |ttst(che|c,0) the|
|00000880| 6e 20 61 76 61 69 6c 3d | 31 3b 67 75 20 31 31 30 |n avail=|1;gu 110|
|00000890| 30 37 32 39 3b 6d 61 79 | 70 3d 72 65 73 75 6c 74 |0729;may|p=result|
|000008a0| 3b 69 66 20 6d 61 79 70 | 3d 32 20 74 68 65 6e 20 |;if mayp|=2 then |
|000008b0| 61 76 61 69 6c 3d 31 3b | 69 66 20 6d 61 79 70 3d |avail=1;|if mayp=|
|000008c0| 31 20 74 68 65 6e 20 61 | 76 61 69 6c 3d 30 3b 63 |1 then a|vail=0;c|
|000008d0| 68 61 74 73 65 74 3d 22 | 6e 4f 54 20 61 56 41 49 |hatset="|nOT aVAI|
|000008e0| 4c 41 42 4c 45 21 22 3b | 69 66 20 61 76 61 69 6c |LABLE!";|if avail|
|000008f0| 3d 31 20 74 68 65 6e 20 | 63 68 61 74 73 65 74 3d |=1 then |chatset=|
|00000900| 22 61 56 41 49 4c 41 42 | 4c 45 21 22 0a 67 75 20 |"aVAILAB|LE!".gu |
|00000910| 31 32 3b 64 61 74 65 3d | 72 65 73 75 6c 74 3b 74 |12;date=|result;t|
|00000920| 69 6d 65 6e 6f 77 3d 74 | 72 61 6e 73 6c 61 74 65 |imenow=t|ranslate|
|00000930| 28 27 51 52 53 54 55 27 | 2c 64 61 74 65 2c 27 41 |('QRSTU'|,date,'A|
|00000940| 42 43 44 45 46 47 48 49 | 4a 4b 4c 4d 4e 4f 50 51 |BCDEFGHI|JKLMNOPQ|
|00000950| 52 53 54 55 56 27 29 3b | 67 75 20 31 33 31 30 34 |RSTUV');|gu 13104|
|00000960| 38 36 3b 64 65 76 69 63 | 65 3d 72 65 73 75 6c 74 |86;devic|e=result|
|00000970| 3b 67 75 20 31 32 31 30 | 34 37 38 3b 62 61 75 64 |;gu 1210|478;baud|
|00000980| 79 3d 72 65 73 75 6c 74 | 2a 31 30 3b 67 75 20 31 |y=result|*10;gu 1|
|00000990| 32 30 30 35 34 32 3b 62 | 61 75 64 78 3d 72 65 73 |200542;b|audx=res|
|000009a0| 75 6c 74 2a 31 30 3b 62 | 61 75 64 3d 62 61 75 64 |ult*10;b|aud=baud|
|000009b0| 78 22 20 2f 20 22 62 61 | 75 64 79 3b 63 6c 73 3b |x" / "ba|udy;cls;|
|000009c0| 74 72 20 22 20 19 63 34 | 2e 2d 2d 2d 2d 2d 2d 2d |tr " .c4|.-------|
|000009d0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|000009e0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|000009f0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00000a00| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00000a10| 2d 2d 2d 2d 2d 2e 22 3b | 74 72 20 22 20 19 63 34 |-----.";|tr " .c4|
|00000a20| 7c 20 20 20 19 63 35 55 | 73 65 72 53 74 61 74 75 ||   .c5U|serStatu|
|00000a30| 73 20 56 31 2e 30 20 20 | 20 20 20 20 20 20 20 20 |s V1.0  |        |
|00000a40| 20 20 20 20 20 20 20 20 | 20 20 20 19 63 33 43 6f |        |   .c3Co|
|00000a50| 70 79 72 69 67 68 74 20 | 28 63 29 20 31 39 39 37 |pyright |(c) 1997|
|00000a60| 20 42 79 20 4e 69 67 65 | 6c 21 20 20 20 20 20 20 | By Nige|l!      |
|00000a70| 20 20 20 19 63 34 7c 22 | 3b 74 72 20 22 20 19 63 |   .c4|"|;tr " .c|
|00000a80| 34 60 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |4`------|--------|
|00000a90| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00000aa0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00000ab0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00000ac0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 27 22 |--------|------'"|
|00000ad0| 3b 74 72 20 22 20 19 63 | 34 2e 2d 2d 2d 2d 2d 2d |;tr " .c|4.------|
|00000ae0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00000af0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00000b00| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00000b10| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00000b20| 2d 2d 2d 2d 2d 2d 2e 22 | 3b 74 72 20 22 20 19 63 |------."|;tr " .c|
|00000b30| 34 7c 20 20 20 19 63 36 | 55 73 65 72 6e 61 6d 65 |4|   .c6|Username|
|00000b40| 19 63 34 2e 2e 2e 2e 2e | 2e 19 63 32 3a 20 19 63 |.c4.....|..c2: .c|
|00000b50| 37 22 6c 65 66 74 28 68 | 61 6e 64 6c 65 2c 32 30 |7"left(h|andle,20|
|00000b60| 29 22 19 63 36 4f 72 67 | 61 6e 69 7a 61 74 69 6f |)".c6Org|anizatio|
|00000b70| 6e 19 63 34 2e 2e 19 63 | 32 3a 20 19 63 37 22 6c |n.c4...c|2: .c7"l|
|00000b80| 65 66 74 28 6f 72 67 61 | 6e 2c 32 30 29 22 20 19 |eft(orga|n,20)" .|
|00000b90| 63 34 7c 22 3b 74 72 20 | 22 20 19 63 34 7c 20 20 |c4|";tr |" .c4|  |
|00000ba0| 20 19 63 36 43 69 74 79 | 2f 53 74 61 74 65 19 63 | .c6City|/State.c|
|00000bb0| 34 2e 2e 2e 2e 19 63 32 | 3a 20 19 63 37 22 6c 65 |4.....c2|: .c7"le|
|00000bc0| 66 74 28 63 69 74 79 2c | 32 30 29 22 19 63 36 42 |ft(city,|20)".c6B|
|00000bd0| 69 72 74 68 64 61 79 19 | 63 34 2e 2e 2e 2e 2e 2e |irthday.|c4......|
|00000be0| 19 63 32 3a 20 19 63 37 | 22 6c 65 66 74 28 62 69 |.c2: .c7|"left(bi|
|00000bf0| 72 74 68 2c 32 30 29 22 | 20 19 63 34 7c 22 3b 74 |rth,20)"| .c4|";t|
|00000c00| 72 20 22 20 19 63 34 7c | 20 20 20 19 63 36 46 69 |r " .c4||   .c6Fi|
|00000c10| 72 73 74 19 63 34 2e 19 | 63 36 6f 6e 19 63 34 2e |rst.c4..|c6on.c4.|
|00000c20| 2e 2e 2e 2e 2e 19 63 32 | 3a 20 19 63 37 22 6c 65 |......c2|: .c7"le|
|00000c30| 66 74 28 66 69 72 6f 6e | 64 2c 32 30 29 22 19 63 |ft(firon|d,20)".c|
|00000c40| 36 4c 61 73 74 19 63 34 | 2e 19 63 36 6f 6e 19 63 |6Last.c4|..c6on.c|
|00000c50| 34 2e 2e 2e 2e 2e 2e 2e | 19 63 32 3a 20 19 63 37 |4.......|.c2: .c7|
|00000c60| 22 6c 65 66 74 28 6c 61 | 73 6f 6e 64 2c 32 30 29 |"left(la|sond,20)|
|00000c70| 22 20 19 63 34 7c 22 3b | 74 72 20 22 20 19 63 34 |" .c4|";|tr " .c4|
|00000c80| 7c 20 20 20 19 63 36 46 | 69 72 73 74 19 63 34 2e ||   .c6F|irst.c4.|
|00000c90| 19 63 36 6f 6e 19 63 34 | 2e 2e 2e 2e 2e 2e 19 63 |.c6on.c4|.......c|
|00000ca0| 32 3a 20 19 63 37 22 6c | 65 66 74 28 66 69 72 6f |2: .c7"l|eft(firo|
|00000cb0| 6e 74 2c 32 30 29 22 19 | 63 36 4c 61 73 74 19 63 |nt,20)".|c6Last.c|
|00000cc0| 34 2e 19 63 36 6f 6e 19 | 63 34 2e 2e 2e 2e 2e 2e |4..c6on.|c4......|
|00000cd0| 2e 19 63 32 3a 20 19 63 | 37 22 6c 65 66 74 28 6c |..c2: .c|7"left(l|
|00000ce0| 61 73 6f 6e 74 2c 32 30 | 29 22 20 19 63 34 7c 22 |asont,20|)" .c4|"|
|00000cf0| 0a 74 72 20 22 20 19 63 | 34 7c 20 20 20 19 63 36 |.tr " .c|4|   .c6|
|00000d00| 53 74 61 74 75 73 19 63 | 34 2e 2e 2e 2e 2e 2e 2e |Status.c|4.......|
|00000d10| 2e 19 63 32 3a 20 19 63 | 37 22 6c 65 66 74 28 73 |..c2: .c|7"left(s|
|00000d20| 74 61 74 75 2c 32 30 29 | 22 19 63 36 4c 65 76 65 |tatu,20)|".c6Leve|
|00000d30| 6c 19 63 34 2e 2e 2e 2e | 2e 2e 2e 2e 2e 19 63 32 |l.c4....|......c2|
|00000d40| 3a 20 19 63 37 22 6c 65 | 66 74 28 6c 65 76 65 6c |: .c7"le|ft(level|
|00000d50| 2c 32 30 29 22 20 19 63 | 34 7c 22 3b 74 72 20 22 |,20)" .c|4|";tr "|
|00000d60| 20 19 63 34 7c 20 20 20 | 19 63 36 55 70 6c 6f 61 | .c4|   |.c6Uploa|
|00000d70| 64 65 64 19 63 34 2e 19 | 63 36 4b 42 19 63 34 2e |ded.c4..|c6KB.c4.|
|00000d80| 2e 2e 19 63 32 3a 20 19 | 63 37 22 6c 65 66 74 28 |...c2: .|c7"left(|
|00000d90| 6b 62 75 70 2c 32 30 29 | 22 19 63 36 44 6f 77 6e |kbup,20)|".c6Down|
|00000da0| 6c 6f 61 64 65 64 19 63 | 34 2e 19 63 36 4b 42 19 |loaded.c|4..c6KB.|
|00000db0| 63 34 2e 19 63 32 3a 20 | 19 63 37 22 6c 65 66 74 |c4..c2: |.c7"left|
|00000dc0| 28 6b 62 64 77 6e 2c 32 | 30 29 22 20 19 63 34 7c |(kbdwn,2|0)" .c4||
|00000dd0| 22 3b 74 72 20 22 20 19 | 63 34 7c 20 20 20 19 63 |";tr " .|c4|   .c|
|00000de0| 36 55 70 6c 6f 61 64 73 | 19 63 34 2e 2e 2e 2e 2e |6Uploads|.c4.....|
|00000df0| 2e 2e 19 63 32 3a 20 19 | 63 37 22 6c 65 66 74 28 |...c2: .|c7"left(|
|00000e00| 66 69 75 70 2c 32 30 29 | 22 19 63 36 44 6f 77 6e |fiup,20)|".c6Down|
|00000e10| 6c 6f 61 64 73 19 63 34 | 2e 2e 2e 2e 2e 19 63 32 |loads.c4|......c2|
|00000e20| 3a 20 19 63 37 22 6c 65 | 66 74 28 66 69 64 77 6e |: .c7"le|ft(fidwn|
|00000e30| 2c 32 30 29 22 20 19 63 | 34 7c 22 3b 74 72 20 22 |,20)" .c|4|";tr "|
|00000e40| 20 19 63 34 7c 20 20 20 | 19 63 36 42 79 74 65 19 | .c4|   |.c6Byte.|
|00000e50| 63 34 2e 19 63 36 52 61 | 74 69 6f 19 63 34 2e 2e |c4..c6Ra|tio.c4..|
|00000e60| 2e 2e 19 63 32 3a 20 19 | 63 37 22 6c 65 66 74 28 |...c2: .|c7"left(|
|00000e70| 62 79 72 61 74 2c 32 30 | 29 22 19 63 36 46 69 6c |byrat,20|)".c6Fil|
|00000e80| 65 19 63 34 2e 19 63 36 | 52 61 74 69 6f 19 63 34 |e.c4..c6|Ratio.c4|
|00000e90| 2e 2e 2e 2e 19 63 32 3a | 20 19 63 37 22 6c 65 66 |.....c2:| .c7"lef|
|00000ea0| 74 28 66 69 72 61 74 2c | 32 30 29 22 20 19 63 34 |t(firat,|20)" .c4|
|00000eb0| 7c 22 3b 74 72 20 22 20 | 19 63 34 7c 20 20 20 19 ||";tr " |.c4|   .|
|00000ec0| 63 36 44 61 69 6c 79 19 | 63 34 2e 19 63 36 4b 42 |c6Daily.|c4..c6KB|
|00000ed0| 19 63 34 2e 19 63 36 4c | 69 6d 69 74 19 63 32 3a |.c4..c6L|imit.c2:|
|00000ee0| 20 19 63 37 22 6c 65 66 | 74 28 64 6b 62 6c 2c 32 | .c7"lef|t(dkbl,2|
|00000ef0| 30 29 22 19 63 36 44 61 | 69 6c 79 19 63 34 2e 19 |0)".c6Da|ily.c4..|
|00000f00| 63 36 46 19 63 34 2e 19 | 63 36 4c 69 6d 69 74 19 |c6F.c4..|c6Limit.|
|00000f10| 63 34 2e 19 63 32 3a 20 | 19 63 37 22 6c 65 66 74 |c4..c2: |.c7"left|
|00000f20| 28 64 66 6c 2c 32 30 29 | 22 20 19 63 34 7c 22 3b |(dfl,20)|" .c4|";|
|00000f30| 74 72 20 22 20 19 63 34 | 7c 20 20 20 19 63 36 43 |tr " .c4||   .c6C|
|00000f40| 61 6c 6c 73 19 63 34 2e | 2e 2e 2e 2e 2e 2e 2e 2e |alls.c4.|........|
|00000f50| 19 63 32 3a 20 19 63 37 | 22 6c 65 66 74 28 63 61 |.c2: .c7|"left(ca|
|00000f60| 6c 6c 73 2c 32 30 29 22 | 19 63 36 43 6f 6d 70 75 |lls,20)"|.c6Compu|
|00000f70| 74 65 72 19 63 34 2e 19 | 63 36 54 79 70 65 19 63 |ter.c4..|c6Type.c|
|00000f80| 34 2e 19 63 32 3a 20 19 | 63 37 22 6c 65 66 74 28 |4..c2: .|c7"left(|
|00000f90| 63 74 79 70 65 2c 32 30 | 29 22 20 19 63 34 7c 22 |ctype,20|)" .c4|"|
|00000fa0| 3b 74 72 20 22 20 19 63 | 34 60 2d 2d 2d 2d 2d 2d |;tr " .c|4`------|
|00000fb0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00000fc0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00000fd0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00000fe0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00000ff0| 2d 2d 2d 2d 2d 2d 27 22 | 3b 74 72 20 22 20 19 63 |------'"|;tr " .c|
|00001000| 34 2e 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |4.------|--------|
|00001010| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00001020| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00001030| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00001040| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2e 22 |--------|------."|
|00001050| 3b 74 72 20 22 20 19 63 | 34 7c 20 20 20 19 63 36 |;tr " .c|4|   .c6|
|00001060| 59 6f 75 72 19 63 34 2e | 19 63 36 53 79 73 6f 70 |Your.c4.|.c6Sysop|
|00001070| 19 63 34 2e 2e 2e 2e 19 | 63 32 3a 20 19 63 37 22 |.c4.....|c2: .c7"|
|00001080| 6c 65 66 74 28 73 79 6f | 70 2c 32 30 29 22 19 63 |left(syo|p,20)".c|
|00001090| 36 42 42 53 19 63 34 2e | 19 63 36 4e 61 6d 65 19 |6BBS.c4.|.c6Name.|
|000010a0| 63 34 2e 2e 2e 2e 2e 2e | 19 63 32 3a 20 19 63 37 |c4......|.c2: .c7|
|000010b0| 22 6c 65 66 74 28 62 62 | 73 6e 61 6d 2c 32 30 29 |"left(bb|snam,20)|
|000010c0| 22 20 19 63 34 7c 22 0a | 74 72 20 22 20 19 63 34 |" .c4|".|tr " .c4|
|000010d0| 7c 20 20 20 19 63 36 43 | 75 72 72 65 6e 74 19 63 ||   .c6C|urrent.c|
|000010e0| 34 2e 19 63 36 54 69 6d | 65 19 63 34 2e 2e 19 63 |4..c6Tim|e.c4...c|
|000010f0| 32 3a 20 19 63 37 22 6c | 65 66 74 28 74 69 6d 65 |2: .c7"l|eft(time|
|00001100| 6e 6f 77 2c 32 30 29 22 | 19 63 36 43 4e 45 54 19 |now,20)"|.c6CNET.|
|00001110| 63 34 2e 19 63 36 56 65 | 72 73 69 6f 6e 19 63 34 |c4..c6Ve|rsion.c4|
|00001120| 2e 2e 19 63 32 3a 20 19 | 63 37 22 6c 65 66 74 28 |...c2: .|c7"left(|
|00001130| 76 65 72 73 2c 32 30 29 | 22 20 19 63 34 7c 22 3b |vers,20)|" .c4|";|
|00001140| 74 72 20 22 20 19 63 34 | 7c 20 20 20 19 63 36 43 |tr " .c4||   .c6C|
|00001150| 68 61 74 19 63 34 2e 19 | 63 36 53 65 74 19 63 34 |hat.c4..|c6Set.c4|
|00001160| 2e 2e 2e 2e 2e 2e 19 63 | 32 3a 20 19 63 37 22 6c |.......c|2: .c7"l|
|00001170| 65 66 74 28 63 68 61 74 | 73 65 74 2c 32 30 29 22 |eft(chat|set,20)"|
|00001180| 19 63 36 59 6f 75 72 19 | 63 34 2e 19 63 36 50 6f |.c6Your.|c4..c6Po|
|00001190| 72 74 19 63 34 2e 19 63 | 36 23 19 63 34 2e 2e 2e |rt.c4..c|6#.c4...|
|000011a0| 19 63 32 3a 20 19 63 37 | 22 6c 65 66 74 28 70 6f |.c2: .c7|"left(po|
|000011b0| 72 74 2c 32 30 29 22 20 | 19 63 34 7c 22 3b 74 72 |rt,20)" |.c4|";tr|
|000011c0| 20 22 20 19 63 34 7c 20 | 20 20 19 63 36 50 6f 72 | " .c4| |  .c6Por|
|000011d0| 74 19 63 34 2e 19 63 36 | 44 65 76 69 63 65 19 63 |t.c4..c6|Device.c|
|000011e0| 34 2e 2e 2e 19 63 32 3a | 20 19 63 37 22 6c 65 66 |4....c2:| .c7"lef|
|000011f0| 74 28 64 65 76 69 63 65 | 2c 32 30 29 22 19 63 36 |t(device|,20)".c6|
|00001200| 42 41 55 44 19 63 34 2e | 2e 2e 2e 2e 2e 2e 2e 2e |BAUD.c4.|........|
|00001210| 2e 19 63 32 3a 20 19 63 | 37 22 6c 65 66 74 28 62 |..c2: .c|7"left(b|
|00001220| 61 75 64 2c 32 30 29 22 | 20 19 63 34 7c 22 3b 74 |aud,20)"| .c4|";t|
|00001230| 72 20 22 20 19 63 34 60 | 2d 2d 2d 2d 2d 2d 2d 2d |r " .c4`|--------|
|00001240| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00001250| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00001260| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00001270| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00001280| 2d 2d 2d 2d 27 22 3b 62 | 75 66 66 65 72 66 6c 75 |----'";b|ufferflu|
|00001290| 73 68 3b 63 68 61 6e 67 | 65 77 68 65 72 65 20 6f |sh;chang|ewhere o|
|000012a0| 6c 64 77 68 3b 65 78 69 | 74 3b 53 59 4e 54 41 58 |ldwh;exi|t;SYNTAX|
|000012b0| 3a 3b 45 52 52 4f 52 3a | 3b 49 4f 45 52 52 3a 3b |:;ERROR:|;IOERR:;|
|000012c0| 65 31 3d 27 20 19 63 39 | 45 72 72 6f 72 19 63 66 |e1=' .c9|Error.cf|
|000012d0| 3a 20 19 63 61 27 72 63 | 27 20 19 63 66 28 19 63 |: .ca'rc|' .cf(.c|
|000012e0| 61 27 65 72 72 6f 72 74 | 65 78 74 28 72 63 29 27 |a'errort|ext(rc)'|
|000012f0| 19 63 66 29 27 3b 65 32 | 3d 27 20 20 19 63 39 4c |.cf)';e2|='  .c9L|
|00001300| 69 6e 65 19 63 66 3a 20 | 19 63 65 27 6c 65 66 74 |ine.cf: |.ce'left|
|00001310| 28 73 69 67 6c 2c 34 29 | 27 19 63 39 46 69 6c 65 |(sigl,4)|'.c9File|
|00001320| 19 63 66 3a 27 3b 67 75 | 20 31 33 31 31 39 39 32 |.cf:';gu| 1311992|
|00001330| 3b 61 3d 72 65 73 75 6c | 74 3b 67 75 20 31 33 31 |;a=resul|t;gu 131|
|00001340| 31 39 36 30 3b 62 3d 72 | 65 73 75 6c 74 3b 63 3d |1960;b=r|esult;c=|
|00001350| 27 19 63 62 22 19 63 65 | 27 61 7c 7c 62 27 19 63 |'.cb".ce|'a||b'.c|
|00001360| 62 22 27 3b 65 32 3d 65 | 32 27 20 27 63 3b 74 72 |b"';e2=e|2' 'c;tr|
|00001370| 20 65 31 3b 74 72 20 65 | 32 3b 6c 6f 67 65 6e 74 | e1;tr e|2;logent|
|00001380| 72 79 20 65 31 3b 6c 6f | 67 65 6e 74 72 79 20 65 |ry e1;lo|gentry e|
|00001390| 32 3b 65 3d 73 6f 75 72 | 63 65 6c 69 6e 65 28 73 |2;e=sour|celine(s|
|000013a0| 69 67 6c 29 3b 64 6f 20 | 77 68 69 6c 65 20 65 7e |igl);do |while e~|
|000013b0| 3d 27 27 3b 65 33 3d 27 | 19 63 39 53 6f 75 72 63 |='';e3='|.c9Sourc|
|000013c0| 65 19 63 66 3a 20 19 63 | 64 27 3b 65 33 3d 65 33 |e.cf: .c|d';e3=e3|
|000013d0| 7c 7c 6c 65 66 74 28 65 | 2c 33 37 29 3b 74 72 20 |||left(e|,37);tr |
|000013e0| 65 33 3b 6c 6f 67 65 6e | 74 72 79 20 65 33 3b 65 |e3;logen|try e3;e|
|000013f0| 3d 73 75 62 73 74 72 28 | 65 2c 33 38 29 3b 65 6e |=substr(|e,38);en|
|00001400| 64 3b 62 75 66 66 65 72 | 66 6c 75 73 68 3b 63 68 |d;buffer|flush;ch|
|00001410| 61 6e 67 65 77 68 65 72 | 65 20 6f 6c 64 77 68 3b |angewher|e oldwh;|
|00001420| 65 78 69 74 0a 2f 2a 20 | 4f 72 69 67 69 6e 61 6c |exit./* |Original|
|00001430| 20 73 63 72 69 70 74 3a | 20 31 31 39 20 6c 69 6e | script:| 119 lin|
|00001440| 65 73 2c 20 35 31 31 38 | 20 62 79 74 65 73 20 2a |es, 5118| bytes *|
|00001450| 2f 0a                   |                         |/.      |        |
+--------+-------------------------+-------------------------+--------+--------+